﻿Public Class Departamento

    Private m_codigo As Integer
    Private m_nombre As String
    Private m_descripcion As String
    Private m_director As String

    ''' <summary>
    ''' Código del departamento
    ''' </summary>
    ''' <value>Código del departamento</value>
    ''' <returns>Código del departamento</returns>
    ''' <remarks>Creado por: David Murillo Fecha de Creación: 14/06/2010
    ''' Ultima modificación: 21/06/2010</remarks>
    Public Property codigo() As Integer
        Get
            Return m_codigo
        End Get
        Set(ByVal p_codigo As Integer)
            m_codigo = p_codigo
        End Set
    End Property

    ''' <summary>
    ''' Nombre del departamento
    ''' </summary>
    ''' <value>Nombre del departamento</value>
    ''' <returns>Nombre del departamento</returns>
    ''' <remarks>Creado por: David Murillo Fecha de Creación: 14/06/2010
    ''' Ultima modificación: 21/06/2010</remarks>
    Public Property nombre() As String
        Get
            Return m_nombre
        End Get
        Set(ByVal p_nombre As String)
            m_nombre = p_nombre
        End Set
    End Property

    ''' <summary>
    ''' Descripción del departamento
    ''' </summary>
    ''' <value>Descripción del departamento</value>
    ''' <returns>Descripción del departamento</returns>
    ''' <remarks>Creado por: David Murillo Fecha de Creación: 14/06/2010
    ''' Ultima modificación: 21/06/2010</remarks>
    Public Property descripcion() As String
        Get
            Return m_descripcion
        End Get
        Set(ByVal p_descripcion As String)
            m_descripcion = p_descripcion
        End Set
    End Property

    ''' <summary>
    ''' Cédula del director
    ''' </summary>
    ''' <value>Cédula del director</value>
    ''' <returns>Cédula del director</returns>
    ''' <remarks>Creado por: David Murillo Fecha de Creación: 14/06/2010
    ''' Ultima modificación: 21/06/2010</remarks>
    Public Property director() As String
        Get
            Return m_director
        End Get
        Set(ByVal p_director As String)
            m_director = p_director
        End Set
    End Property
    ''' <summary>
    ''' Convierte los datos en un Hashtable
    ''' </summary>
    ''' <returns>Un Hashtable</returns>
    ''' <remarks>Creado por: David Murillo Fecha de Creación: 14/06/2010
    ''' Ultima modificación: 21/06/2010</remarks>
    Public Function toHashtable() As Hashtable

        Dim htDepartamento As New Hashtable

        htDepartamento.Add("codigo", codigo)
        htDepartamento.Add("nombre", nombre)
        htDepartamento.Add("descripcion", descripcion)
        htDepartamento.Add("director", director)

        Return htDepartamento

    End Function

End Class


